home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / as97ppup / as97popu.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-01-05  |  5.7 KB  |  159 lines
  1. VERSION 5.00
  2. Object = "{D959C709-8613-11D1-9840-002078110E7D}#1.0#0"; "as97Popup.ocx"
  3. Begin VB.Form as97PopupSample 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Popup Sample"
  6.    ClientHeight    =   3360
  7.    ClientLeft      =   5850
  8.    ClientTop       =   4020
  9.    ClientWidth     =   5790
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    Picture         =   "as97PopupSample.frx":0000
  14.    ScaleHeight     =   3360
  15.    ScaleWidth      =   5790
  16.    Begin as97Popup.asPopup cmdMicrosoft 
  17.       Height          =   915
  18.       Left            =   120
  19.       Top             =   120
  20.       Width           =   1155
  21.       _ExtentX        =   2037
  22.       _ExtentY        =   1614
  23.       CustomPicture   =   "as97PopupSample.frx":40E0
  24.       MouseOverPicture=   "as97PopupSample.frx":43FA
  25.       Caption         =   "Microsoft"
  26.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  27.          Name            =   "MS Sans Serif"
  28.          Size            =   8.25
  29.          Charset         =   0
  30.          Weight          =   700
  31.          Underline       =   0   'False
  32.          Italic          =   0   'False
  33.          Strikethrough   =   0   'False
  34.       EndProperty
  35.       ForeColor       =   16777215
  36.       Layout          =   3
  37.       HyperLink       =   "http://www.microsoft.com"
  38.       ScaleWidth      =   77
  39.       ScaleMode       =   0
  40.       ScaleHeight     =   61
  41.       BackStyle       =   0
  42.    End
  43.    Begin as97Popup.asPopup cmdExit 
  44.       Height          =   795
  45.       Left            =   4800
  46.       Top             =   2460
  47.       Width           =   915
  48.       _ExtentX        =   1614
  49.       _ExtentY        =   1402
  50.       BackPicture     =   "as97PopupSample.frx":4714
  51.       CustomPicture   =   "as97PopupSample.frx":AF66
  52.       MouseOverPicture=   "as97PopupSample.frx":B280
  53.       Caption         =   "Exit"
  54.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  55.          Name            =   "MS Sans Serif"
  56.          Size            =   8.25
  57.          Charset         =   0
  58.          Weight          =   400
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       ForeColor       =   0
  64.       CustomHeight    =   16
  65.       CustomWidth     =   16
  66.       Layout          =   3
  67.       ScaleWidth      =   61
  68.       ScaleMode       =   0
  69.       ScaleHeight     =   53
  70.    End
  71.    Begin as97Popup.asPopup asPopup1 
  72.       Height          =   495
  73.       Left            =   120
  74.       Top             =   2580
  75.       Width           =   1335
  76.       _ExtentX        =   2355
  77.       _ExtentY        =   873
  78.       BackPicture     =   "as97PopupSample.frx":B59A
  79.       Caption         =   ""
  80.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  81.          Name            =   "MS Sans Serif"
  82.          Size            =   8.25
  83.          Charset         =   0
  84.          Weight          =   400
  85.          Underline       =   0   'False
  86.          Italic          =   0   'False
  87.          Strikethrough   =   0   'False
  88.       EndProperty
  89.       UseFrame        =   0   'False
  90.       HyperLink       =   "mailto:exorcyze@corlabs.com"
  91.       ScaleWidth      =   89
  92.       ScaleMode       =   0
  93.       ScaleHeight     =   33
  94.       Display         =   2
  95.    End
  96.    Begin as97Popup.asPopup cmdHyperLink 
  97.       Height          =   315
  98.       Left            =   1740
  99.       Top             =   2640
  100.       Width           =   2895
  101.       _ExtentX        =   5106
  102.       _ExtentY        =   556
  103.       CustomPicture   =   "as97PopupSample.frx":C61D
  104.       MouseOverPicture=   "as97PopupSample.frx":C937
  105.       Caption         =   "Goto Aspire Home Page"
  106.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   9.75
  109.          Charset         =   0
  110.          Weight          =   400
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       ForeColor       =   12582912
  116.       UseFrame        =   0   'False
  117.       MouseOverColor  =   16711680
  118.       MouseDownColor  =   16711680
  119.       HyperLink       =   "http://members.tripod.com/~Aspiration"
  120.       ScaleWidth      =   193
  121.       ScaleMode       =   0
  122.       ScaleHeight     =   21
  123.       BackStyle       =   0
  124.    End
  125. Attribute VB_Name = "as97PopupSample"
  126. Attribute VB_GlobalNameSpace = False
  127. Attribute VB_Creatable = False
  128. Attribute VB_PredeclaredId = True
  129. Attribute VB_Exposed = False
  130. Option Explicit
  131. Private Sub asPopup1_Click(Cancel As Boolean)
  132.     Dim ret As Long
  133.     'you can use the cancel variable to
  134.     'cancel the firing of the HyperLink
  135.     ret = MsgBox("Are you sure you want to mail us?", vbYesNo + vbQuestion, "E-mail Aspire")
  136.     If ret = vbNo Then Cancel = True
  137. End Sub
  138. Private Sub cmdExit_Click(Cancel As Boolean)
  139.     Unload Me
  140. End Sub
  141. Private Sub cmdHyperLink_MouseEnter()
  142.     'use the mouseenter / mouseexit events
  143.     'to make custom adjustments of the button's display
  144.     cmdHyperLink.Font.Underline = True
  145. End Sub
  146. Private Sub cmdHyperLink_MouseExit()
  147.     'use the mouseenter / mouseexit events
  148.     'to make custom adjustments of the button's display
  149.     cmdHyperLink.Font.Underline = False
  150. End Sub
  151. Private Sub cmdMicrosoft_Click(Cancel As Boolean)
  152. End Sub
  153. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  154.     'these routines garantee the full transparency
  155.     'of these two popup buttons
  156.     Call cmdHyperLink.ParentMouseMove(Button, Shift, X, Y)
  157.     Call cmdMicrosoft.ParentMouseMove(Button, Shift, X, Y)
  158. End Sub
  159.